﻿Imports Microsoft.VisualBasic

Public Class clsAmlo3Psn
    'Implements IComparable

    Private aIndex As Integer
    'psn==========Begin================== 
    Private a1_psn_relation As Integer
    'name------------------- 
    Private a1_psn_name_prefix As String
    Private a1_psn_name_first As String
    Private a1_psn_name_middle As String
    Private a1_psn_name_last As String
    'id------------------------  
    Private a1_psn_id_no As String
    Private a1_psn_id_type As Integer
    'location----------------- 
    Private a1_psn_location_addr As String
    Private a1_psn_location_phone As String
    Private a1_psn_location_fax As String
    'office----------------- 
    Private a1_psn_office_occ As Integer
    Private a1_psn_office_org As String
    Private a1_psn_office_phone As String
    Private a1_psn_office_fax As String
    Private a1_psn_office_type As Integer
    Private a1_psn_office_desc As String
    'contact---------------- 
    Private a1_psn_contact_addr As String
    Private a1_psn_contact_phone As String
    Private a1_psn_contact_fax As String
    'iddoc---------------- 
    Private a1_psn_iddoc_type As Integer
    Private a1_psn_iddoc_desc As String
    Private a1_psn_iddoc_no As String
    Private a1_psn_iddoc_by As String
    Private a1_psn_iddoc_date As String
    Private a1_psn_iddoc_expire As String

    Public Property clsIndex() As Integer
        Get
            Return aIndex
        End Get
        Set(ByVal value As Integer)
            aIndex = value
        End Set
    End Property
    'psn==========Begin================== 
    Public Property p201_psn_relation() As Integer
        Get
            Return a1_psn_relation
        End Get
        Set(ByVal value As Integer)
            a1_psn_relation = value
        End Set
    End Property
    'psn_name-------------------     
    Public Property p202_psn_name_prefix() As String
        Get
            Return a1_psn_name_prefix
        End Get
        Set(ByVal value As String)
            a1_psn_name_prefix = value
        End Set
    End Property
    Public Property p203_psn_name_first() As String
        Get
            Return a1_psn_name_first
        End Get
        Set(ByVal value As String)
            a1_psn_name_first = value
        End Set
    End Property
    Public Property p204_psn_name_middle() As String
        Get
            Return a1_psn_name_middle
        End Get
        Set(ByVal value As String)
            a1_psn_name_middle = value
        End Set
    End Property
    Public Property p205_psn_name_last() As String
        Get
            Return a1_psn_name_last
        End Get
        Set(ByVal value As String)
            a1_psn_name_last = value
        End Set
    End Property
    'psn_id------------------------   
    Public Property p206_psn_id_no() As String
        Get
            Return a1_psn_id_no
        End Get
        Set(ByVal value As String)
            a1_psn_id_no = value
        End Set
    End Property
    Public Property p207_psn_id_type() As Integer
        Get
            Return a1_psn_id_type
        End Get
        Set(ByVal value As Integer)
            a1_psn_id_type = value
        End Set
    End Property
    'psn_location-----------------    
    Public Property p208_psn_location_addr() As String
        Get
            Return a1_psn_location_addr
        End Get
        Set(ByVal value As String)
            a1_psn_location_addr = value
        End Set
    End Property
    Public Property p209_psn_location_phone() As String
        Get
            Return a1_psn_location_phone
        End Get
        Set(ByVal value As String)
            a1_psn_location_phone = value
        End Set
    End Property
    Public Property p210_psn_location_fax() As String
        Get
            Return a1_psn_location_fax
        End Get
        Set(ByVal value As String)
            a1_psn_location_fax = value
        End Set
    End Property
    'office-----------------   
    Public Property p211_psn_office_occ() As Integer
        Get
            Return a1_psn_office_occ
        End Get
        Set(ByVal value As Integer)
            a1_psn_office_occ = value
        End Set
    End Property
    Public Property p212_psn_office_org() As String
        Get
            Return a1_psn_office_org
        End Get
        Set(ByVal value As String)
            a1_psn_office_org = value
        End Set
    End Property
    Public Property p213_psn_office_phone() As String
        Get
            Return a1_psn_office_phone
        End Get
        Set(ByVal value As String)
            a1_psn_office_phone = value
        End Set
    End Property
    Public Property p214_psn_office_fax() As String
        Get
            Return a1_psn_office_fax
        End Get
        Set(ByVal value As String)
            a1_psn_office_fax = value
        End Set
    End Property
    Public Property p215_psn_office_type() As Integer
        Get
            Return a1_psn_office_type
        End Get
        Set(ByVal value As Integer)
            a1_psn_office_type = value
        End Set
    End Property
    Public Property p216_psn_office_desc() As String
        Get
            Return a1_psn_office_desc
        End Get
        Set(ByVal value As String)
            a1_psn_office_desc = value
        End Set
    End Property
    'contact----------------    
    Public Property p217_psn_contact_addr() As String
        Get
            Return a1_psn_contact_addr
        End Get
        Set(ByVal value As String)
            a1_psn_contact_addr = value
        End Set
    End Property
    Public Property p218_psn_contact_phone() As String
        Get
            Return a1_psn_contact_phone
        End Get
        Set(ByVal value As String)
            a1_psn_contact_phone = value
        End Set
    End Property
    Public Property p219_psn_contact_fax() As String
        Get
            Return a1_psn_contact_fax
        End Get
        Set(ByVal value As String)
            a1_psn_contact_fax = value
        End Set
    End Property
    'iddoc----------------       
    Public Property p220_psn_iddoc_type() As Integer
        Get
            Return a1_psn_iddoc_type
        End Get
        Set(ByVal value As Integer)
            a1_psn_iddoc_type = value
        End Set
    End Property
    Public Property p221_psn_iddoc_desc() As String
        Get
            Return a1_psn_iddoc_desc
        End Get
        Set(ByVal value As String)
            a1_psn_iddoc_desc = value
        End Set
    End Property
    Public Property p222_psn_iddoc_no() As String
        Get
            Return a1_psn_iddoc_no
        End Get
        Set(ByVal value As String)
            a1_psn_iddoc_no = value
        End Set
    End Property
    Public Property p223_psn_iddoc_by() As String
        Get
            Return a1_psn_iddoc_by
        End Get
        Set(ByVal value As String)
            a1_psn_iddoc_by = value
        End Set
    End Property
    Public Property p224_psn_iddoc_date() As String
        Get
            Return a1_psn_iddoc_date
        End Get
        Set(ByVal value As String)
            a1_psn_iddoc_date = value
        End Set
    End Property
    Public Property p225_psn_iddoc_expire() As String
        Get
            Return a1_psn_iddoc_expire
        End Get
        Set(ByVal value As String)
            a1_psn_iddoc_expire = value
        End Set
    End Property

    Public Sub New(ByVal i As Integer)
        aIndex = i
        'psn==========Begin================== 
        a1_psn_relation = vbNull
        'name------------------- 
        a1_psn_name_prefix = ""
        a1_psn_name_first = ""
        a1_psn_name_middle = ""
        a1_psn_name_last = ""
        'id------------------------  
        a1_psn_id_no = ""
        a1_psn_id_type = vbNull
        'location----------------- 
        a1_psn_location_addr = ""
        a1_psn_location_phone = ""
        a1_psn_location_fax = ""
        'office----------------- 
        a1_psn_office_occ = vbNull
        a1_psn_office_org = ""
        a1_psn_office_phone = ""
        a1_psn_office_fax = ""
        a1_psn_office_type = vbNull
        a1_psn_office_desc = ""
        'contact---------------- 
        a1_psn_contact_addr = ""
        a1_psn_contact_phone = ""
        a1_psn_contact_fax = ""
        'iddoc---------------- 
        a1_psn_iddoc_type = vbNull
        a1_psn_iddoc_desc = ""
        a1_psn_iddoc_no = ""
        a1_psn_iddoc_by = ""
        a1_psn_iddoc_date = vbNullString
        a1_psn_iddoc_expire = vbNullString

    End Sub

End Class
